The calling program code looks like this:

PRINTER definition:

 FILE-CONTROL.
     SELECT PRINTER  ASSIGN TO "PRINTER,,,LP(CCTL)"
            FILE STATUS IS PRINTER-STATUS.
 DATA DIVISION.
 FILE SECTION.
 FD  PRINTER  RECORD CONTAINS 80  CHARACTERS
              DATA RECORD IS LP-REC.
 01  LP-REC                PIC X(80).


PROCEDURE CODE:

*------>> Open the printer file and get the FD file number from
*         the operating system, using the "GETFDF" sub-routine.
     OPEN OUTPUT PRINTER.
     IF PRINTER-STATUS NOT = "00" PERFORM 9001-FILE-ERROR.
     MOVE "01"     TO  PRINTER-FLAG.
     CALL "GETFDF" USING FNUM \PRINTER\.
     MOVE FNUM     TO PRINTER-FNUM.
-----------